Add context to errors thrown by server-start during startup

When server-start errors during startup, the error is printed to
the terminal without context.  To help the user understand
better what went wrong, that printed error now mentions that the
error came from starting up the daemon.

* lisp/startup.el (command-line): Catch and annotate errors
thrown by server-start.  (bug#68799)

diff --git a/lisp/startup.el b/lisp/startup.el
index 1c21b5de857a3bff17d2096bfcf60ddbf5cbdec5..33e1124b9982eca32988c3d3db31287ab4562d1d 100644 (file)
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -1639,7 +1639,9 @@ Consider using a subdirectory instead, e.g.: %s"
   (let ((dn (daemonp)))
     (when dn
       (when (stringp dn) (setq server-name dn))
-      (server-start)
+      (condition-case err
+          (server-start)
+        (error (error "Unable to start daemon: %s; exiting" (error-message-string err))))
       (if server-process
          (daemon-initialized)
        (if (stringp dn)